home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / lcppb.zip / LCPPLIB.ZIP / TERROR.CPP < prev    next >
C/C++ Source or Header  |  1991-07-08  |  1KB  |  45 lines
  1. // terror.cpp -- Test ERROR Module
  2.  
  3. //#include <stream.hpp>
  4. #include <iostream.h>
  5. #include "error.h"
  6.  
  7. extern int errorignore;    // Gain access to errorignore flag
  8.  
  9. void test(int n);
  10.  
  11. main()
  12. {
  13.   errorignore = 1;        // Do not halt on errors
  14.   test(1);                // Test with reset in geterror
  15.   test(0);                // Test without reset in geterror
  16.   errorignore = 0;        // Halt on errors
  17.   error(-154, "Internal problem. Please report at once!");
  18.   cout << "\n\nIf you are reading these lines, there is an";
  19.   cout << "\nerror in the ERROR module!";
  20. }
  21.  
  22. void test(int n)
  23. {
  24.   int err;
  25.  
  26.   if (n == 0)
  27.     cout << "\n\nTesting geterror without reset";
  28.   else
  29.     cout << "\n\nTesting geterror with reset";
  30.   error(ERRMEM);          // Out-of-memory error
  31.   if ((err = geterror(n)) != NOERROR)
  32.     cout << "\nError detected. Code = " << err;
  33.   else
  34.     cout << "\nError in ERROR: geterror failed to return code";
  35.   cout << "\nSecond call to geterror = " << geterror();
  36. }
  37.  
  38.  
  39. // Copyright (c) 1990 by Tom Swan. All rights reserved
  40. // Revision 1.00    Date: 10/26/1990   Time: 03:07 pm
  41.  
  42. // Revision 1.01    Date: 07/08/1991   Time: 05:41 pm
  43. // Converted for Borland C++ 2.0
  44.  
  45.